home *** CD-ROM | disk | FTP | other *** search
/ Aminet 31 / Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso / Aminet / docs / mags / AmZ_8-HT.lha / amzeiger / amz0399 / bin.lha / BlitzEx2.txt < prev    next >
Text File  |  1999-03-13  |  2KB  |  70 lines
  1. WBStartup
  2.  
  3.  
  4.  
  5. ; Kennen wir
  6.  
  7. WBenchToFront_
  8.  
  9. WbToScreen 0
  10. Use Screen 0
  11. *Scr = ActiveScreen
  12.  
  13. ;Intuifont Bestimmen
  14.  
  15. FH=Peek.w(Peek.l(*Scr+40)+4)
  16. FN$=Peek$(Peek.l(*Scr+40)+8)
  17. LoadFont 0,FN$,FH
  18. Use IntuiFont 0
  19.  
  20. ; Window Oeffnen
  21.  
  22. SH.w=Peek.w(*Scr+14)
  23. SW.w=Peek.w(*Scr+12)
  24. SB.b=Peek.b(*Scr+30)
  25.  
  26.  
  27. SizeLimits 200,120,SW,SH
  28.  
  29.  
  30. Window 0,0,SB,SW,SH-SB,$140F,"Gatget BB2-Kurs",1,2
  31.  
  32. a=0:a$="Vorname"
  33.  
  34. Gosub GadDef
  35.  
  36.  
  37. Repeat
  38.  
  39.   FlushEvents
  40.   ev.l=WaitEvent
  41.  
  42.  
  43.   If ev=$40
  44.  
  45.      Select GadgetHit
  46.  
  47.       Case 0
  48.  
  49.         WLocate 1,100:NPrint "Button 1 Gedr ckt"
  50.  
  51.  
  52.       Case 1
  53.  
  54.         WLocate 1,100:NPrint "Button 2 Gedr ckt"
  55.  
  56.      End Select
  57.   End If
  58.  
  59. Until ev=$200
  60. End
  61.  
  62. ; Gadget Definieren
  63.  
  64. .GadDef
  65. WCls
  66. GTButton 0,0,0,0,200,FH+3"Button 1",$10
  67. GTButton 0,1,0,16,200,FH+3,"Button 2",$10
  68. AttachGTList 0,0
  69. Return                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
  70.